home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / epp / pmodules / commandlineargs.e < prev    next >
Text File  |  1980-01-05  |  709b  |  28 lines
  1. OPT TURBO
  2.  
  3. PMODULE 'PMODULES:cSkipWhite'
  4. PMODULE 'PMODULES:cSkipNonWhite'
  5.  
  6. PROC getArg(theArg:PTR TO CHAR, index)
  7.   DEF startPos:PTR TO CHAR, numChars, i, length
  8.   IF arg[]<=0
  9.     StrCopy(theArg, '', ALL)
  10.     RETURN FALSE
  11.   ENDIF
  12.   length:=StrLen(arg)
  13.   startPos:=arg
  14.   FOR i:=2 TO index
  15.     startPos:=cSkipNonWhite(startPos)  /* Find next space. */
  16.     startPos:=cSkipWhite(startPos)     /* Find start of next arg. */
  17.     IF startPos[]=0
  18.       /* End of string encountered before requested arg. */
  19.       StrCopy(theArg, '', ALL)
  20.       RETURN FALSE
  21.     ENDIF
  22.   ENDFOR
  23.   numChars:=(cSkipNonWhite(startPos)-startPos)   /* Find end of arg. */
  24.   MidStr(theArg, startPos, 0, numChars)
  25. ENDPROC TRUE
  26.   /* getArg */
  27.  
  28.